for example, reactable
reactable(infert)
for example plotly
education_plot <- ggplot(infert, aes(x=education, fill=education))+ geom_bar() ggplotly(education_plot)